use XUL::Gui;
    display Window title => "Pacientes",
        GroupBox(
			Caption('Carga de Pacientes'),
			        
            Label (value=>'Nombre:', control=>'nombre'),
			TextBox( id => 'nombre', width => 200 ),
			Label (value=>'Apellido:', control=>'apellido'),
			TextBox( id => 'apellido', width => 200 ),
			Label (value=>'Edad:', control=>'edad'),
			TextBox( id => 'edad', width => 200 ),
            
            Button(
				id        => 'graba',
                label     => 'Grabar',
                oncommand => 
                sub {
				window.open("chrome://navigator/content/navigator.xul", "chrome,width=600,height=300");
                #ID(graba)->label = 'Grabado';
                #ID(txt)->value = ID(nombre)->value;
                #$graba = ID(nombre)->value;
                #print $graba;
                #quit;
                #ID(txt)->value = 'Los datos fueron grabados correctamente';
				}
            ),

            TextBox( id => 'txt', width => 300 ),
          );
       

$in=open(BBDD, ">>archivo.dat")|| die "no existe el archibo"; # for writing
print BBDD $graba;
print BBDD "\n";
close(BBDD);
